1 REM SOUND EFFECTS
2 REM "SPACE" GUNSHOT
10 GOSUB 900:GOTO 100
20 POKE AD(1),5:POKE SR(1),53:POKE FL(1),30:POKE FH(1),30
25 POKE AD(0),5:POKE SR(0),53 :POKE FH(0),250
30 POKE VL,15:PRINT "."
40 POKE GT(1),129:FOR I=0 TO 29:NEXT:POKE GT(0),17
50 FOR I=225 TO 25 STEP -25:POKE FH(0),I:FOR X=0 TO 19:NEXT:NEXT
60 POKE GT(1),0:POKE GT(0),0
90 RETURN
99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSED
100 PRINT "PRESS SHIFT TO HEAR SOUND";
110 IF PEEK(653)=0 THEN 110
120 GOSUB 20:GOTO 100
898 REM ROUTINE TO SET UP VARIABLES
899 REM SET UP SOUND CONTROL ADDRESSES
900 FL(0)=54272:FH(0)=54273:GT(0)=54276:AD(0)=54277:SR(0)=54278
905 FOR I=1 TO 2:X=I*7:FL(I)=FL(0)+X:FH(I)=FH(0)+X:GT(I)=GT(0)+X:AD(I)=AD(0)+X
906 SR(I)=SR(0)+X:NEXT
909 REM SET VOLUME ADDRESS
910 VL=54296
990 RETURN